Private Sub btn˻_Click()

    Dim ̸ As Range
    Dim ã̸ As Range
    Dim ڵ As Range,  As Range
    Dim  As Integer,  As Integer
    Dim Ű As String
    Dim ù°ġ As String
    Dim Ʈ() As Variant

    Ű = txt˻.Value

    If Len(Ű) > 0 Then
    
        Set ̸ = Range("B2").CurrentRegion.Columns(2)
        Set ã̸ = ̸.Find(What:=Ű, LookAt:=xlPart)
        
        If Not ã̸ Is Nothing Then
        
            ù°ġ = ã̸.Address
            
            Do
                
                ReDim Preserve Ʈ(3, )
                Set ڵ = ã̸.Offset(, -1).Resize(1, 3)
                
                For Each  In ڵ
                    Ʈ(, ) = .Value
                     =  + 1
                Next
                
                 =  + 1
                 = 0
                
                Set ã̸ = ̸.FindNext(ã̸)
                
            Loop Until ã̸ Is Nothing Or ã̸.Address = ù°ġ
            
            With lst
                .ColumnCount = 3
                .ColumnWidths = "1.7cm;2.1cm;1.2cm"
                .Column = Ʈ
            End With
                        
        Else
            
            MsgBox "˻   ʽϴ."
            lst.Clear
                
        End If
        
    End If

End Sub